#-*-perl-*-
use Test::More qw(no_plan);
use strict;
use warnings;
use lib '../lib';
use AlienArena::Server;

use_ok 'AlienArena::Server::RunState';
ok my $server = AlienArena::Server->new();
my $state = AlienArena::Server::RunState->new($server);
isa_ok $state,'AlienArena::Server::RunState';
ok !$state->is_up, "not up";
$state->_ping(30);
$state->_is_up(1);
$state->_map('dm8');
ok $state->is_up, "up";
is $state->ping, 30, "ping field";
is $state->current_map, 'dm8', "current map"
